home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD018b.dsk / EVEN.WINS.bas < prev    next >
BASIC Source File  |  2003-06-12  |  5KB  |  109 lines
  1. 1  GOSUB 9004
  2. 12  REM  [][][][][][][][][][][][][]       EVEN.WINS        [][] REVISED FOR APPLE ][ + [][]     BY GENE WEBER      [][]   DECEMBER 19, 1981    [][]   FINAL VERSION DONE   [][]    FEBRUARY 6, 1983    [][][][][][][][][][][][][][][]
  3. 13  REM  [][][][][][][][][][][][][]  ORIGINAL PROGRAM BY   [][]      ERIC PETERS       [][]                        [][]  BASIC PLUS VERSION BY [][]       DAVID AHL        [][]                        [][][][][][][][][][][][][][][]
  4. 26  GOSUB 1700
  5. 30  ONERR  GOTO 710
  6. 200  HOME : VTAB 10: HTAB 9: PRINT "THE GAME OF EVEN WINS": PRINT 
  7. 210  HTAB 9: PRINT "INSTRUCTIONS (Y OR N)? ";: GET A$: PRINT : IF A$ < >"Y"  THEN 230
  8. 225  GOSUB 730
  9. 230  DIM R(1,5)
  10. 250  LET L = 0:E = 0:G = 0:W = 0
  11. 260  FOR I = 0 TO 5:R(1,I) = 4:R(0,I) = 4: NEXT 
  12. 270  LET A = 0: LET B = 0
  13. 280  DEF  FN A(X) =  INT(X +.5)
  14. 290  LET G = G +1
  15. 300  LET P =  INT((13 * RND(1) +9)/2) *2 +1
  16. 310  IF P = 1  THEN 670
  17. 320  HOME : VTAB 10
  18. 325  PRINT "YOU HAVE ";A;" CHIPS.": PRINT 
  19. 330  PRINT "THERE ARE "P" CHIPS ON THE BOARD."
  20. 340  LET E1 = E:L1 = L
  21. 350  LET E = (A/2 - INT(A/2)) *2
  22. 360  LET L =  INT((P/6 - INT(P/6)) *6 +.5)
  23. 370  IF R(E,L) > = P  THEN 500
  24. 380  LET M = R(E,L)
  25. 390  IF M < = 0  THEN 540
  26. 400  LET P = P -M
  27. 410  IF M = 1  THEN 660
  28. 420  PRINT "COMPUTER TAKES "M" CHIPS LEAVING "P
  29. 430  PRINT ". . . YOUR MOVE . . .";
  30. 440  LET B = B +M: GET M$:M =  VAL(M$):M =  INT(M): PRINT 
  31. 450  REM  
  32. 460  IF M <1  THEN 610
  33. 470  IF M >4  OR M >P  THEN 620
  34. 480  IF M = P  THEN 530
  35. 490  LET P = P -M: LET A = A +M: GOTO 310
  36. 500  IF P = 1  THEN 680
  37. 510  PRINT "COMPUTER TAKES "P" CHIPS"
  38. 520  LET R(F,L) = P: LET B = B +P
  39. 530  IF B/2 =  INT(B/2)  THEN 590
  40. 540  HOME : VTAB 12: HTAB 5: PRINT "THE GAME IS OVER . . . ";: INVERSE : PRINT " YOU WIN! ": NORMAL : GOSUB 9100: PRINT 
  41. 550  LET W = W +1
  42. 560  IF R(E,L) = 1  THEN 630
  43. 570  LET R(E,L) = R(E,L) -1
  44. 580  GOTO 650
  45. 590  HOME : VTAB 12: HTAB 6: PRINT "THE GAME IS OVER . . ";: INVERSE : PRINT " I WIN!! ": NORMAL : PRINT "<CTRL-G><CTRL-G><CTRL-G>": GOTO 650
  46. 600  PRINT 
  47. 610  IF M = 0  THEN 690
  48. 620  PRINT M" IS AN ILLEGAL MOVE . . YOUR MOVE ";: GOTO 440
  49. 630  IF R(E1,L1) = 1  THEN 650
  50. 640  LET R(E1,L1) = R(E1,L1) -1
  51. 650  HTAB 5: INVERSE : PRINT : HTAB 6: PRINT " YOU'VE WON "W" OUT OF "G" GAMES ": GOSUB 930: GOTO 270
  52. 660  PRINT "I TAKE 1 CHIP LEAVING "P" . . YOUR MOVE ";: GOTO 440
  53. 670  PRINT "THERE IS 1 CHIP ON THE BOARD ": GOTO 340
  54. 680  PRINT "I TAKE 1 CHIP . .": GOTO 520
  55. 690  IF G <2  THEN  HOME : VTAB 12: HTAB 6: PRINT "SORRY YOU DIDN'T WANT TO PLAY ": VTAB 23: GOTO 720
  56. 695  HOME : VTAB 12: HTAB 6: PRINT "YOU PLAYED "G -1" GAMES AND WON "W
  57. 700  HTAB 15: PRINT "THAT'S "; FN A(100 *W/(G -1))"%"
  58. 710  HTAB 5: PRINT "HOPE YOU HAD FUN . . . BYE, BYE ": VTAB 23
  59. 720  GOSUB 9000: END 
  60. 730  HOME : VTAB 1
  61. 735  VTAB 2: HTAB 16: INVERSE : PRINT " EVEN ": NORMAL : VTAB 5
  62. 740  PRINT "HERE'S HOW THE GAME IS PLAYED:          "
  63. 760  PRINT "   AT THE BEGINNING OF A GAME, A RANDOM ": PRINT "NO. OF CHIPS IS PLACED ON THE BOARD. THE": PRINT "NUMBER OF CHIPS ALWAYS STARTS AS AN ODD ": PRINT "NUMBER. ON EACH TURN, A PLAYER MUST     "
  64. 770  PRINT "TAKE ONE,TWO,THREE OR FOUR CHIPS. THE   ": PRINT "WINNER IS THE PLAYER WHO FINSIHES WITH  ": PRINT "A TOTAL NUMBER OF CHIPS THAT IS EVEN.   ": PRINT "THE COMPUTER STARTS OUT KNOWING ONLY THE"
  65. 775  GOSUB 930: VTAB 8
  66. 780  PRINT "RULES OF THE GAME. IT GRADUALLY LEARNS  ": PRINT "TO PLAY WELL. IT SHOULD BE DIFFICULT TO ": PRINT "BEAT THE COMPUTER 20 GAMES IN A ROW.    "
  67. 790  PRINT "JUST TRY IT!!!!": PRINT : PRINT "TO QUIT TYPE '0' AS YOUR MOVE ": PRINT 
  68. 900  GOSUB 930
  69. 920  RETURN 
  70. 930  NORMAL : VTAB 23: HTAB 10: PRINT " < PRESS ANY KEY > ";: GET X$: PRINT : HOME : RETURN 
  71. 1699  END 
  72. 1700  HOME 
  73. 1710  FOR I = 1 TO 39: PRINT "%";: NEXT I
  74. 1720  HTAB 0
  75. 1730  FOR I = 1 TO 22: HTAB 1: VTAB I: PRINT "%";: NEXT I
  76. 1740  FOR I = 1 TO 39: VTAB 22: HTAB I: PRINT "%";: NEXT I
  77. 1750  FOR I = 22 TO 1  STEP  -1: HTAB 39: VTAB I: PRINT "%";: NEXT I
  78. 1755  FLASH 
  79. 1770  VTAB 6: HTAB 15: PRINT " APPLE ][ "
  80. 1780  VTAB 10: HTAB 15
  81. 1790  PRINT "           "
  82. 1800  HTAB 15
  83. 1810  PRINT " EVEN.WINS "
  84. 1820  HTAB 15
  85. 1830  PRINT "           "
  86. 1840  IF X = 0  THEN  GOSUB 9000
  87. 1850  NORMAL 
  88. 1860  IF X = 1  THEN 1900
  89. 1870  LET X = 1
  90. 1880  NORMAL : GOTO 1770
  91. 1900  REM  
  92. 1910  HTAB 16
  93. 1920  PRINT "GENE WEBER"
  94. 1930  PRINT 
  95. 1940  HTAB 19
  96. 1950  PRINT "1983"
  97. 1960  VTAB 18: HTAB 11: PRINT "SOUND BY BEAGLE BROS"
  98. 1970  FOR I = 1 TO 3000: NEXT I
  99. 1980  RETURN 
  100. 2000  VTAB 23: HTAB 10: PRINT "< PRESS SPACE BAR > ";: GET A$: HOME : RETURN 
  101. 2010  FOR XX = 1 TO 1000: NEXT XX: RETURN 
  102. 8999  REM  <CTRL-M><CTRL-M>SLIDE WHISTLE<CTRL-M>=============
  103. 9000  REM  
  104. 9001 LE = 4: FOR PI = 254 TO 1  STEP  -2: POKE 0,255 -PI: POKE 1,LE: CALL 771: NEXT 
  105. 9002  FOR PI = 1 TO 50: POKE 0,255 -PI *5: POKE 1,LE: CALL 771: NEXT 
  106. 9003  REM  <CTRL-M><CTRL-M>MUSIC POKES<CTRL-M>===========
  107. 9004  POKE 771,173: POKE 772,48: POKE 773,192: POKE 774,136: POKE 775,208: POKE 776,4: POKE 777,198: POKE 778,1: POKE 779,240: POKE 780,8: POKE 781,202: POKE 782,208: POKE 783,246: POKE 784,166: POKE 785,0: POKE 786,76: POKE 787,3: POKE 788,3: POKE 789,96: RETURN 
  108. 9100  FOR J = 1 TO 5: FOR XX = 1 TO 75: NEXT : FOR I = 1 TO 12:A =  PEEK(49200): NEXT : FOR XX = 1 TO 100: NEXT : NEXT : RETURN 
  109. 65535  REM                       +++++++++++++++++++++++++++++         EVEN.WINS        ++                          ++ (C)1983 ELMO ENTERPRISES ++    APPLE][ VERSION BY    ++        GENE WEBER        +++++++++++++++++++++++++++++